VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form jevlogin 
   BackColor       =   &H8000000C&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   6990
   ClientLeft      =   0
   ClientTop       =   495
   ClientWidth     =   12075
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   6990
   ScaleLeft       =   500
   ScaleMode       =   0  'User
   ScaleTop        =   500
   ScaleWidth      =   12075
   ShowInTaskbar   =   0   'False
   Begin VB.PictureBox LoginWindow 
      Height          =   3495
      Left            =   6600
      Picture         =   "jevlogin.frx":0000
      ScaleHeight     =   3435
      ScaleWidth      =   4725
      TabIndex        =   2
      Top             =   3120
      Width           =   4785
      Begin VB.TextBox password 
         Appearance      =   0  'Flat
         BeginProperty Font 
            Name            =   "Palatino Linotype"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         IMEMode         =   3  'DISABLE
         Left            =   2040
         PasswordChar    =   "*"
         TabIndex        =   1
         Top             =   1920
         Width           =   2415
      End
      Begin VB.TextBox txtUserName 
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFFFF&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   360
         Left            =   2040
         Locked          =   -1  'True
         TabIndex        =   0
         Text            =   "Jeevan"
         Top             =   1245
         Width           =   2370
      End
      Begin VB.PictureBox Picture2 
         Height          =   855
         Left            =   0
         Picture         =   "jevlogin.frx":179B3A
         ScaleHeight     =   795
         ScaleWidth      =   4755
         TabIndex        =   3
         Top             =   0
         Width           =   4815
         Begin VB.Label Label1 
            BackStyle       =   0  'Transparent
            Caption         =   "Enter User Name And Password to Login The System."
            BeginProperty Font 
               Name            =   "Verdana"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   -1  'True
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H8000000E&
            Height          =   795
            Left            =   2160
            TabIndex        =   4
            Top             =   0
            Width           =   1875
         End
      End
      Begin VB.Label Label2 
         BackStyle       =   0  'Transparent
         Caption         =   "&Cancel"
         BeginProperty Font 
            Name            =   "Trebuchet MS"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Left            =   3120
         TabIndex        =   24
         Top             =   2880
         Width           =   615
      End
      Begin VB.Shape Shape1 
         BackColor       =   &H00000000&
         BackStyle       =   1  'Opaque
         Height          =   300
         Index           =   0
         Left            =   2070
         Top             =   1330
         Width           =   2370
      End
      Begin VB.Shape Shape1 
         BackColor       =   &H00000000&
         BackStyle       =   1  'Opaque
         Height          =   300
         Index           =   1
         Left            =   2070
         Top             =   2040
         Width           =   2370
      End
      Begin VB.Label Label7 
         BackStyle       =   0  'Transparent
         Caption         =   "User Name :"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C000C0&
         Height          =   255
         Left            =   480
         TabIndex        =   9
         Top             =   1200
         Width           =   1335
      End
      Begin VB.Label Label8 
         BackStyle       =   0  'Transparent
         Caption         =   "Password:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C000C0&
         Height          =   255
         Left            =   480
         TabIndex        =   8
         Top             =   1920
         Width           =   1215
      End
      Begin VB.Image cmdconnect 
         Height          =   675
         Left            =   2280
         MouseIcon       =   "jevlogin.frx":187B8C
         MousePointer    =   99  'Custom
         Picture         =   "jevlogin.frx":187E96
         Stretch         =   -1  'True
         Top             =   2640
         Width           =   675
      End
      Begin VB.Label Label10 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "&OK"
         BeginProperty Font 
            Name            =   "Trebuchet MS"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   270
         Left            =   1920
         TabIndex        =   7
         Top             =   2880
         Width           =   255
      End
      Begin VB.Image cmdcancel 
         Height          =   675
         Left            =   3840
         MouseIcon       =   "jevlogin.frx":188BB3
         MousePointer    =   99  'Custom
         Picture         =   "jevlogin.frx":188EBD
         Stretch         =   -1  'True
         Top             =   2640
         Width           =   675
      End
      Begin VB.Label lblTip 
         AutoSize        =   -1  'True
         BackColor       =   &H00E0E0E0&
         BackStyle       =   0  'Transparent
         BeginProperty Font 
            Name            =   "Trebuchet MS"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   120
         Left            =   120
         TabIndex        =   6
         Top             =   2520
         Width           =   1845
      End
      Begin VB.Label lblChangePassword 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         Caption         =   "Change Password"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   255
         Left            =   120
         MouseIcon       =   "jevlogin.frx":189BDA
         MousePointer    =   99  'Custom
         TabIndex        =   5
         Top             =   2880
         Width           =   1575
      End
   End
   Begin VB.PictureBox ChangePassWin 
      Height          =   3495
      Left            =   6600
      Picture         =   "jevlogin.frx":189EE4
      ScaleHeight     =   3435
      ScaleWidth      =   4740
      TabIndex        =   10
      Top             =   3120
      Width           =   4800
      Begin VB.TextBox repassword 
         Appearance      =   0  'Flat
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         IMEMode         =   3  'DISABLE
         Left            =   2160
         PasswordChar    =   "*"
         TabIndex        =   22
         Top             =   2160
         Width           =   2295
      End
      Begin VB.TextBox oldpassword 
         Appearance      =   0  'Flat
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         IMEMode         =   3  'DISABLE
         Left            =   2160
         PasswordChar    =   "*"
         TabIndex        =   18
         Top             =   960
         Width           =   2295
      End
      Begin VB.PictureBox Pictur2 
         Height          =   855
         Left            =   0
         Picture         =   "jevlogin.frx":303A1E
         ScaleHeight     =   795
         ScaleWidth      =   4755
         TabIndex        =   11
         Top             =   0
         Width           =   4815
         Begin VB.Label Label9 
            BackStyle       =   0  'Transparent
            Caption         =   "Enter User Name And Password to Login The System."
            BeginProperty Font 
               Name            =   "Verdana"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   -1  'True
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H8000000E&
            Height          =   795
            Left            =   2040
            TabIndex        =   12
            Top             =   0
            Width           =   1875
         End
      End
      Begin VB.TextBox txtNewPassword 
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFFFF&
         BeginProperty Font 
            Name            =   "Trebuchet MS"
            Size            =   14.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   390
         IMEMode         =   3  'DISABLE
         Left            =   2160
         PasswordChar    =   "*"
         TabIndex        =   20
         Top             =   1560
         Width           =   2250
      End
      Begin VB.Label lblTip1 
         AutoSize        =   -1  'True
         BackColor       =   &H00E0E0E0&
         BackStyle       =   0  'Transparent
         BeginProperty Font 
            Name            =   "Trebuchet MS"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   240
         Left            =   120
         TabIndex        =   21
         Top             =   2520
         Width           =   1845
      End
      Begin VB.Label Label14 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "&Cancel"
         BeginProperty Font 
            Name            =   "Trebuchet MS"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   270
         Left            =   3240
         TabIndex        =   19
         Top             =   2880
         Width           =   615
      End
      Begin VB.Image cmdCanceI 
         Height          =   675
         Left            =   3960
         MouseIcon       =   "jevlogin.frx":311A70
         MousePointer    =   99  'Custom
         Picture         =   "jevlogin.frx":311D7A
         Stretch         =   -1  'True
         Top             =   2640
         Width           =   675
      End
      Begin VB.Label Label15 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "&OK"
         BeginProperty Font 
            Name            =   "Trebuchet MS"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   270
         Left            =   2040
         TabIndex        =   17
         Top             =   2880
         Width           =   255
      End
      Begin VB.Image cmdOK 
         Height          =   675
         Left            =   2400
         MouseIcon       =   "jevlogin.frx":312A97
         MousePointer    =   99  'Custom
         Picture         =   "jevlogin.frx":312DA1
         Stretch         =   -1  'True
         Top             =   2640
         Width           =   675
      End
      Begin VB.Label Label16 
         BackStyle       =   0  'Transparent
         Caption         =   "New Password:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C000C0&
         Height          =   255
         Left            =   120
         TabIndex        =   16
         Top             =   1680
         Width           =   1815
      End
      Begin VB.Label Label17 
         BackStyle       =   0  'Transparent
         Caption         =   "Old Password :"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C000C0&
         Height          =   255
         Left            =   120
         TabIndex        =   15
         Top             =   1110
         Width           =   1815
      End
      Begin VB.Shape Shape1 
         BackColor       =   &H00000000&
         BackStyle       =   1  'Opaque
         Height          =   300
         Index           =   2
         Left            =   2190
         Top             =   1680
         Width           =   2250
      End
      Begin VB.Shape Shape1 
         BackColor       =   &H00000000&
         BackStyle       =   1  'Opaque
         Height          =   300
         Index           =   3
         Left            =   2190
         Top             =   1090
         Width           =   2250
      End
      Begin VB.Label Label18 
         BackStyle       =   0  'Transparent
         Caption         =   "Re-Type Password:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C000C0&
         Height          =   255
         Left            =   120
         TabIndex        =   14
         Top             =   2280
         Width           =   1815
      End
      Begin VB.Shape Shape1 
         BackColor       =   &H00000000&
         BackStyle       =   1  'Opaque
         Height          =   300
         Index           =   4
         Left            =   2190
         Top             =   2280
         Width           =   2250
      End
      Begin VB.Label Label6 
         BackStyle       =   0  'Transparent
         Caption         =   "CHANGING PASSWORD"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   375
         Left            =   360
         TabIndex        =   13
         Top             =   2880
         Width           =   1095
      End
   End
   Begin RichTextLib.RichTextBox RichTextBox1 
      Height          =   375
      Left            =   6840
      TabIndex        =   23
      Top             =   3480
      Width           =   1575
      _ExtentX        =   2778
      _ExtentY        =   661
      _Version        =   393217
      Enabled         =   -1  'True
      TextRTF         =   $"jevlogin.frx":313ABE
   End
   Begin VB.Image Image5 
      Height          =   675
      Left            =   7320
      Picture         =   "jevlogin.frx":313B49
      Stretch         =   -1  'True
      Top             =   5160
      Visible         =   0   'False
      Width           =   675
   End
   Begin VB.Image Image4 
      Height          =   675
      Left            =   3240
      Picture         =   "jevlogin.frx":314866
      Stretch         =   -1  'True
      Top             =   4560
      Visible         =   0   'False
      Width           =   675
   End
End
Attribute VB_Name = "jevlogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim X As String
Private Sub ChangePassWin_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdOK.Picture = Image5.Picture
cmdCanceI.Picture = Image5.Picture
End Sub
Private Sub cmdCanceI_Click()
LoginWindow.Visible = True
End Sub
Private Sub cmdCanceI_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdCanceI.Picture = Image4.Picture
End Sub
Private Sub cmdcancel_Click()
End
End Sub
Private Sub cmdcancel_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdcancel.Picture = Image4.Picture
End Sub
Private Sub cmdconnect_Click()
Call login
End Sub
Private Sub cmdconnect_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdconnect.Picture = Image4.Picture
End Sub
Private Sub cmdOK_Click()
If contxt(X) = UCase(oldpassword.Text) Then
If txtNewPassword <> "" And repassword.Text <> "" Then
If txtNewPassword = repassword.Text Then
RichTextBox1 = conasc(repassword.Text)
RichTextBox1.saveFile (App.Path & "\password.txt")
X = RichTextBox1.Text
MsgBox "Password Changed Successfully"
LoginWindow.Visible = True
Else
MsgBox "New Password and Re-Enter Password are Not Same"
End If
Else
MsgBox "Enter New Password and Re-Enter Password"
End If
End If
End Sub
Private Sub cmdOK_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdOK.Picture = Image4.Picture
End Sub
Private Sub Form_Load()
RichTextBox1.LoadFile (App.Path & "\password.txt")
X = RichTextBox1.Text
End Sub
Private Sub lblChangePassword_Click()
LoginWindow.Visible = False
End Sub
Private Sub LoginWindow_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdconnect.Picture = Image5.Picture
cmdcancel.Picture = Image5.Picture
End Sub
Private Sub oldPassword_LostFocus()
If contxt(X) <> UCase(oldpassword.Text) Then
MsgBox "Wrong Password"
oldpassword = ""
oldpassword.SetFocus
End If
End Sub
Private Function conasc(s As String) As String
Dim st As String
st = ""
For i = 1 To Len(s)
st = st & (Int(AscW(UCase(Mid(s, i, 1)))) + 3) & " "
Next i
conasc = st
End Function
Private Function contxt(s As String) As String
Dim st As String
st = ""
For i = 1 To Len(s)
If Mid(s, i, 1) <> " " Then
st = st + Chr(Int(Mid(s, i, 2)) - 3)
i = i + 1
End If
Next i
contxt = st
End Function
Private Sub login()
Dim s, s1, a(2) As String
Dim d, d1 As Date
d = "11/10/2009"
'd1 = "10/24/2009"
'If d < Format(Now, "mm/dd/yyyy") Then
'RichTextBox1 = "77 89 68 76 86 92 68"
RichTextBox1.LoadFile (App.Path & "\password.txt")
X = RichTextBox1.Text
'End If
If d < Format(Now, "mm/dd/yyyy") Then
'RichTextBox1.Text = "80 71 82 73 77 72 72 89 68 81"
RichTextBox1.LoadFile (App.Path & "\Registation1.txt")
a(0) = RichTextBox1.Text
RichTextBox1.LoadFile (App.Path & "\Registation.txt")
a(1) = RichTextBox1.Text
Do
If contxt(a(0)) = UCase(a(1)) Then
Exit Do
Else
MsgBox "Demo Version Duration is finished! You Must Register"
s1 = InputBox("Enter the Registration No", "Registation")
If s1 = "" Then
End
End If
RichTextBox1.Text = s1
RichTextBox1.saveFile (App.Path & "\Registation.txt")
a(1) = RichTextBox1.Text
End If
Loop While (1)
End If
If contxt(X) = UCase(password.Text) Then
jevlogin.Hide
If Format(Now, "m") = 4 And Dir(App.Path & "\" & Year(Now) - 1 & "-" & Year(Now), vbDirectory) = "" Then
MsgBox "Make Ur Backup Immediately..."
Load BackupFrm
BackupFrm.Show
End If
Else
MsgBox "Enter the Correct Password"
End If
End Sub

Private Sub password_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Call login
End Sub
